/* GUI CONVERTED from wowoisb.p (converter v1.75) Sat Aug 12 16:38:10 2000 */
/* wowoisb.p - WORK ORDER ISSUE WITH SERIAL NUMBERS SUBROUTINE          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/*K1Q4*/ /*V8:RunMode=Character,Windows                                 */
/* REVISION: 7.3      LAST MODIFIED: 09/23/94   by: emb  *GM78*/
/* REVISION: 7.3      LAST MODIFIED: 11/08/94   by: rwl  *GO34*/
/* REVISION: 7.5      LAST MODIFIED: 11/21/94   by: taf  *J038*/
/* REVISION: 8.6      LAST MODIFIED: 05/20/98   by: *K1Q4* Alfred Tan   */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   by: *N0KC* myb          */
/* REVISION: 9.1      LAST MODIFIED: 09/09/02   by: *N1T7* Rajesh Kini  */
/* This subroutine extracted from wowois.p due to action code segment problems
   during compilation under version 7 Progress.  Patches in effect in wowois.p
   (and included here but not noted specifically in the code) are 'FP55, G223,
   G527, G656, G872 and GM61'. */
     {mfdeclre.i} /*GUI moved to top.*/

     define output parameter undo-all as logical.
     
/*GUI moved mfdeclre/mfdtitle.*/

     undo-all = yes.
     mainloop:
     do:
        for each sr_wkfl where sr_userid = mfguser exclusive-lock:
            delete sr_wkfl.
        end.

/*GUI*/ if global-beam-me-up then undo, leave.

        undo-all = no.
     end.
